home *** CD-ROM | disk | FTP | other *** search
- //----------------------------------------------------------------------------
- // Dbexcept.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
- // From: Dbexcept.pas
- //----------------------------------------------------------------------------
- #ifndef DbexceptHPP
- #define DbexceptHPP
- //----------------------------------------------------------------------------
- #include <DB.hpp>
- #include <ExtCtrls.hpp>
- #include <StdCtrls.hpp>
- #include <Buttons.hpp>
- #include <Controls.hpp>
- #include <Forms.hpp>
- #include <Graphics.hpp>
- #include <Classes.hpp>
- #include <SysUtils.hpp>
- #include <Windows.hpp>
- #include <System.hpp>
- #pragma warn -par
- #pragma warn -hid
- #pragma warn -inl
-
- namespace Dbexcept
- {
- //-- type declarations -------------------------------------------------------
- class __declspec(delphiclass) TDbEngineErrorDlg;
- class __declspec(pascalimplementation) TDbEngineErrorDlg : public Forms::TForm
- {
- typedef Forms::TForm inherited;
-
- __published:
- Extctrls::TPanel* BasicPanel;
- Extctrls::TPanel* DetailsPanel;
- Stdctrls::TLabel* BDELabel;
- Stdctrls::TLabel* NativeLabel;
- Stdctrls::TMemo* DbMessageText;
- Stdctrls::TEdit* DbResult;
- Stdctrls::TEdit* DbCatSub;
- Stdctrls::TEdit* NativeResult;
- Stdctrls::TButton* BackBtn;
- Stdctrls::TButton* NextBtn;
- Extctrls::TPanel* ButtonPanel;
- Stdctrls::TButton* DetailsBtn;
- Stdctrls::TButton* OKBtn;
- Extctrls::TPanel* IconPanel;
- Extctrls::TImage* IconImage;
- Extctrls::TPanel* TopPanel;
- Stdctrls::TLabel* ErrorText;
- Extctrls::TPanel* RightPanel;
- void __fastcall FormShow(System::TObject* Sender);
- void __fastcall BackClick(System::TObject* Sender);
- void __fastcall NextClick(System::TObject* Sender);
- void __fastcall FormCreate(System::TObject* Sender);
- void __fastcall DetailsBtnClick(System::TObject* Sender);
-
- private:
- Forms::TExceptionEvent FPrevOnException;
- Db::EDBEngineError* DbException;
- int FDetailsHeight;
- int CurItem;
- System::AnsiString FDetails;
- void __fastcall SwitchDetails(void);
- void __fastcall ShowError(void);
-
- public:
- void __fastcall ShowException(System::TObject* Sender, Sysutils::Exception* E);
- public:
- /* TForm.Create */ __fastcall virtual TDbEngineErrorDlg(Classes::TComponent* AOwner) : Forms::TForm(
- AOwner) { }
- /* TForm.CreateNew */ __fastcall TDbEngineErrorDlg(Classes::TComponent* AOwner, int Dummy) : Forms::
- TForm(AOwner, Dummy) { }
- /* TForm.Destroy */ __fastcall virtual ~TDbEngineErrorDlg(void) { }
-
- public:
- /* TWinControl.CreateParented */ __fastcall TDbEngineErrorDlg(HWND ParentWindow) : Forms::TForm(ParentWindow
- ) { }
-
- };
-
- //-- var, const, procedure ---------------------------------------------------
- extern TDbEngineErrorDlg* DbEngineErrorDlg;
-
- } /* namespace Dbexcept */
-
- #pragma warn .par
- #pragma warn .hid
- #pragma warn .inl
-
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Dbexcept;
- #endif
- //-- end unit ----------------------------------------------------------------
- #endif // Dbexcept
-